home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / MacHack 90 Contest Entries / Validate Text Entry / SetDrugFrm.a < prev   
Encoding:
Text File  |  1989-09-25  |  1.1 KB  |  50 lines  |  [TEXT/MPS ]
  1.                 TITLE            'Format resource for Setdrug'
  2.                 BLANKS            ON
  3.                 CASE            ON
  4.                 String            Pascal
  5.                 Machine            MC68020
  6.                 MC68881
  7.  
  8. ;  This resource provides our special dialog filter with the information to
  9. ;  validate numeric field entry. If Rez permitted extended reals as a data type,
  10. ;  the resource would be as follows:
  11. ;type 'Frm#' {
  12. ;    integer = $$CountOf(FormatArray) - 1;
  13. ;    wide array FormatArray {
  14. ;        integer;            /*ItemNum of editable text item*/ 
  15. ;        integer;            /*ItemNum of static text item associated with this field*/
  16. ;        integer;            /*Type of field*/
  17. ;        integer;            /*badVal*/
  18. ;        extended;            /*minVal*/
  19. ;        extended            /*maxVal*/
  20. ;    };
  21. ;};
  22.     
  23. TextFormat            equ        1
  24. IntegerFormat        equ        2
  25. RealFormat            equ        3
  26.  
  27.                     Main
  28.                     
  29.                     DC.W    2
  30.                     DC.W    1                    ;ItemNum of Newbag button
  31.                     DC.W    9                    ;ItemNum of default item
  32.  
  33. ;  SNPdose                    
  34.                     DC.W    3
  35.                     DC.W    18
  36.                     DC.W    RealFormat
  37.                     DC.W    0
  38.                     DC.X    "0.0"                ; min
  39.                     DC.X    "499.0"                ; max
  40.  
  41. ;  VolumeHung
  42.                     DC.W    4
  43.                     DC.W    19
  44.                     DC.W    IntegerFormat
  45.                     DC.W    0
  46.                     DC.X    "1.0"                ; min
  47.                     DC.X    "1999.0"            ; max
  48.  
  49.                     END
  50.